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FORSINQUIRE FORTRAN INQUIRE 18- Sep-1984 AX-11 Bliss-32 V4.0-7 Pa 1 
14- ~8ep-1984 99% 5 3 FORRTL.SRCJFORINQUIR. 8 2;1 ” (1) 
1 001 MODULE FORSINQUIRE (2TIT +f FORT RAN INQUIRE’ : 
§ it) {DENT = 017° ! File: FORINQUIR.B32 Edit: $BL1017 
4 0004 1 BEGIN 
en ae 
? 0007 } PI TIITILILILILI LLL LLL LL LETTE T TTT tTitttite 
'® * 
7 0009 1 !* COPYRIGHT as 1978, 1980, 1982, 1984 BY * 
10 0010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACIIUSETTS. * 
1) Bet) ! :* ALL RIGHTS URESERVED. * 
* ey 
8 $018 1 !* THIS SOFTWARE iS FURNISHED {eves A LICENSE AND MAY BE USED AND COPIED ® 
14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
16 0016 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
13 8518 : :* TRANSFERRED. * 
* © 
20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$$ Bos§ : ? CORPORATION. x 
‘en * 
24 00246 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR BEL IABILITY OF ITS * 
25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
26 0026 1 !«* * 
27 0027 1 !* * 
44 B056 : j CORSET SNR LSSREDAASTEL SONESIHESSEDST HARES HES TODO THRUNETESS ONT AREOT NASR ESOORS 
$6 $056 1 
3 et i FACILITY FORTRAN L $ Lib 
; s an t 
3 ets i guage Suppor ibrary 
34 0034 1 ! ABSTRACT: 
35 0035 1! 
“6 st] : Implements the FORTRAN INQUIRE statement. 
3s st ' =) ENVIRONMENT: User mode, AST reentrant. 
40 0040 AUTHOR: Steven B. Lionel, CREATION DATE: 28-August-1979 
42 0042 1 | EDIT HISTORY: 
43 0043 1! 
44 0044 1 ! 1-001 - Original. SBL coonugust «197? 
45 0045 1 ! 1-002 - Add comments about AST disabling. Also report errors 
46 0046 1! RMS$_TYP and RMS$_VER as file name syntax errors. SBL 
47 0047 1 ! 1-003 - Instéad of giving an error, gust pretend units ‘poisoned’ 
48 0048 1! with DEFINE FILE, rc: aren't open. SBL 21-Sept-1979 
49 0049 1 ! 1-004 - Improve error hand Hs F SBL 8-0ct-1979 
50 0050 1! 1-005 - Genove file pane edit ng RMS does ‘f ihm, SBL 12-Oct-1979 
51 0051 1 ! 1-006 - If FILEname invalid, return user £ Syeps te Oe p4 \enane as NAME. SBL 19-Oct-1979 
26 R236 1 ! 1-007 = Add CARRIAGECONTROL keyword. s8, ec-19 
5 0055 1 ! 1-008 - Class RMS$_ SYN as file Yaw H ecification AE If wildcard 
54 Boe 1! resent, don't report RMS error and don't scan LUNs. SBL 6-Feb-1980 
55 055 1 | 1-009 - Have NEXTREC simp ty fer” UBSL_LOG_RECNO. Remove the erroneous 
56 R026 1! MIN which caused it to always réturn 1! Correct the comment 
57 0057 1! for MAXREC to conform to the code and spec. Move declaration 
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of g eee ed to the inside of the routine which uses it. 
SBL 21-August-1980 
Add s suppers. is or DEFAULTFILE. iw 01-Jul-1981 
Allow DEFAULTFILE value to be ASCI viv -Jul-1981 
Open file for shared access. SB =Novel 
Declare LIBSSTOP external. SBL 50-Nov-1981 
Do extra SPARSE artet geen to make RMS clean up its internal 
structures. Never on 4 weer r ee PuSts errors in 
INQUIRE b 4 "Br oh 083 “August-19 

t do the SSEARCH for qonerae yey as it a return 
RMS$_IOP. SBL 14-Jan-1983 
Make use of the fact sats the © Eb e8 nd NAM blocks are heap-allocated. 
Use prologue file. O-A 
Use individual NAM$V_WILD vas aes to determine if wildcard i 
present since seorsh” ListS would trigger NAM$V_WILDCARD. SBL 24-Aug-1983 
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; N 1 , 
NQUIRE FORTRAN INQUIRE 16-Sep-1984 00:27: AX-11 Bliss-32 V4.0-74 Page 5 
} 12-808-1 382 99:95:69 FORRTL. RCIFORINGUIR.B 2;1 . (2). 
§8 . » ZCHARCOUNT (‘FORTRAN’), : 16 
4 1 ZCHARCOUNT ('LIST'), 9 
91 5 1 ZCHARCOUNT ('NONE") ¢ ii 
3 § 1 ZCHARCOUNT (‘STREAM’) ' 4 
9 1 XCHARCOUNT ('STREAM_CR'), i 30 
9% 8 1 ZCHARCOUNT ("STREAM_LF') ! 2 
95 59 (1 »); 
96 60 1 
97 61 1 !¢4 
98 0 66 1 ! Vector which is indexed b one keyword number. Values are: 
99 65 1! 0 = do nothing, 1 = numeric, 2 = string. 
00 64 1 !- 
01 65 1 OWN 
4 08 1 RESP_TYPES : VECTOR CINQSK_KEY_MAX + 1, BYTE] PSECT (_FORSCODE) INITIAL (BYTE ( 
¥ of ! all INOSE_LOSTAT OF (OJ, ! Up to but not including IOSTAT | 
05 0269 1 REP INQSK_EXIST - (INQSK_IOSTAT + 1) OF (0), — ! Unused space 
06 0270 1 1, !"EXIST 
07 0271 1 Ne ! OPENED 
08 0 ¢ 1 a ! NUMBER 
09 02735 #1 le ' NAMED 
10 0274 1 0, ! NAME (name is stored separately) 
1 0275 1 2. ' ACCESS 
i 0276 1 a ' SEQUENTIAL 
1 0277 1 2. ! DIRECT 
14 0278 1 ae ' FORM ; 
15 0279 1 a ' FORMATTED 
16 0280 1 2. ' UNF ORMATTED 
17 0281 1 te ' RECL 
18 pss 1 le ' NEXTREC 
19 0283 1 , a ! BLANK 
20 0284 1 ie ! ORGANIZATION 
21 0285 1 i ! RECORDTYPE 
$§ 0286 1 as ' KEYED 
§ $544 1 2 ' CARRIAGECONTROL 
4 0288 1 )); 
25 0289 1 
$$ 0290 1! 
7 B50, 1 ! EXTERNAL REFERENCES: 
28 0 9 1! 
$3 02935 1 
0 0294 1 EXTERNAL ROUTINE 
31 0295 1 FORSSERR_OPECLO ' Error handler 
3 8539 1 FORSSERRSNS_SAV : NOVALUE, ! Save ERRSNS values. 
0297 1 FORSSOPECLO_ ARG, ! Process argument List 
34 0298 1 FORS$$CB_PUSA : JSB_CB_PUSH ' Get a 
35 0099 1 FORS$CB-POP : JSB_CB_POP NOVALUE, Free a CCB 
36 0300 1 FORS$SCB-FETCH : CALL-CCB NOVALUE, ! Fetch a CCB 
37 0301 1 FOR$$SIG_NO_LUB : NOVALUE, ' Signal fatal error 
38 0308 1 LIB$SIG_TO RET, ! Condition handler 
39 03035 1 LIBSSTOP: ROVALUE, ! Signal non-continuable error 
40 0304 1 FORSSNEXT_LUN : NOVALUE; ! Find next allocated LUN 
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GLOBAL ROUTINE FORSINQUIRE ( 
KEYWD) = ! Argument List 

le 

' FUNCTIONAL DESCRIPTION: 

Processes the FORTRAN INQUIRE statement. 


There are two ways to inquire = by file and by unit. 
me yt bo by file returns information about that file 
an e a 


EPL OLA AAMT ST TTT SY 4 


0306 | 

: 0 ; 1 

Oya RB 

; ? 3 o 1! 

: 248 0311 1! 

3; 249 0 ¢ 1! 

; 250 03 1! 

$ go) 0314 1! 

: 26 0315 1! abou unit on which it is opened, if any. 
ae +) 0316 1! Inquirin by unit returns information about that unit 
3 2¢ 03 f : } and about the file opened on it, if any. 

; 56 0319 1 ! FORMAL PARAMETERS: | 
, aor 0320 1! 3 
>; 258 0321 1! The entire argument List is comprised of prougs of keywords 

3 4 8 ; } and values. The format is identical to that for FORSOPEN. 

: 261 0324 1! IMPLICIT INPUTS: | 
3 6¢ 0325 i! 

: 0326 1! NONE 

; 264 0327 1! 

; 265 0328 1 ! IMPLICIT OUTPUTS: 

: 266 0329 1! 

3; <or 0330 1! Values are returned to the caller through addresses denoted 

; 268 0331 1! in the keyword List. 

; 269 OsSe 4 ! 

; ere 0333 1 ! COMPLETION CODES: 

; en 0334 1! 

s €fe 0335 1! SS$_NORMAL = Successful completion 

; die 0336 1! 

; 276 0337 1 ! SIDE EFFECTS: 

. are 0338 1! ; 

: 276 0339 1! On INQUIRE by FILE: disables ASTs while looking at a unit 

3 a7 0340 1! to determine if it is open. Inquiring about a unit or about 

; 278 0341 1! a file open on a unit is considered 1/0 on that unit and 
; e79 Oseg 1! follows the FORTRAN rules for recursive I/0 (i.e., it's 
; 280 0343 1! not permitted). 
; 281 0344 1! 

3 «eee 0345 1 !-- 

: 285 0346 1 

: «284 0347 BEGIN 

3 $e? 0348 

: 86 0349 GLOBAL REGISTER 

é At 0350 CCB = 11 : REF SFORSCCB_DECL; 

; 288 0351 

; $89 O26 BUILTIN . 

; eS O32? ACTUALCOUNT; ! Number of arguments in call 

; 4 0355 MAP ; 

3 b32$ KEYWD : BLOCKVECTOR (255, 1]; ! Use the format arg List 

; 295 0358 LOCAL x : 

; 296 0359 DSC : DSCSDESCRIPTOR, ! String descriptor for file name. 

s ger 0360 DEF DSC : DSCSDESCRIPTOR, : ATE descriptor for default file name 

; 298 0361 L_URWIND_ACTION : VOLATILE, ! UNWIND action code for handler 
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14-Sep-1984 FORRTL.SRCJFORINQUIR.B352;1 (3) 
: 299 036 INQUIRE : VOLATILE VECTOR CINQSK_KEY_MAX + 1], ! INQUIRE peraneter array 
: 300 036 NAM_BLOCK : $NAM_DECL, i NAM bloc 
H 01 0364 FAB_BLOCK : $FAB_DECL ' FAB block 
: 30 0365 XAB“BLOCK : $XABFHC DECL, i XAB block 
; 036 REF BLOCK (, BYTE), ! Pointer to FAB 
; 304 036 NAM: REF BLOCK [, BYTE], ! Pointer to NAM 
; 305 0368 ' LUN number 
; 306 0369 RES_OR_EXP_NAME : VECTOR CNAMSC_MAXRSS, BYTE], ! RSN or ESN 
; 4 0370 RES_OR_EXP_LE ! Length of resultant name 
; 08 0371 INQ"FLAGS: BLOCK C4,BYTE) FIELD (INQ_FIELDS) ! Internal thegs ; 
: 309 O37¢ VAR“LENGTHS : VECTOR CINQSK KEY MAX = 1, BYTEJ, | Length in bits of variables 
: 310 B32 RESP_VEC : VECTOR CINQS$K_KEY_MAR + 1, LONG), ! Response vector 
s- S43 0374 ' Loop index 
: 1 0375 RET_STATUS, i Returned error code from FORSINQUIRE 
: Hy 0376 STATUS; ! Returned condition code 
: 14 0377 
; «315 0378 BIND 
: 316 0379 2 CCB_FAB = CCB: REF SFORSFAB_CCB_STRUCT, 
: 317 0380 2 CCB"NAM = CCB: REF $FORSNAM~CCB-STRUCT: 
; 318 0381 2 
; #319 te 2 ENABLE 
; $54 Oeez § FORSSERR_OPECLO (L_UNWIND_ACTION, INQUIRE); ! Set up error handler 
3 356 0385 2 1+ 
: 32 0386 2 ' Set up FAB, NAM and XAB blocks. 
; 6e6 0387 § '- 
3 32s 0388 
: 326 P 0389 2 $FAB_INIT (FAB=FAB_BLOCK, NAM=NAM_BLOCK, XAB=XAB_BLOCK, DNM=".DAT', 
s Ser 0390 2 SHR=(GET,PUT,DEL,UPD,UPI)); 
: 328 P 0391 2 SNAM_INIT (NAM=NAM_BLOCK, ESA=RES_OR_EXP_NAME, ESS=NAMSC_MAXRSS, 
: 329 ba08 2 RSA=RES_OR_EXP NAME, RSS=NAMSC_MAXRSS); 
3 330 0393 2 SXABFHC_INIT (RAB=RAB_BLOCK); 
3s 35 0394 2 
3; 332 0395 2 1+ ; 
; $32 $443 § Initialize internal flags and return status value. 
s 339 0398 2 CHSILL (0, (INQSK_KEY MAX +1) * ZUPVAL, RESP_VEC); 
; 336 0399 2 CHSFILL (0, INQSK_REY_MAX + 1, VAR_LENGTHS); 
; $35 0400 2 INQ_FLAGS LNAME_OK] = 0; 
P 38 0401 INQ_FLAGS CUNIT_OKJ = 0; 
; 339 pe0e INQ-FLAGS CCCB_OK) = 0; 
: 340 040 INQ"FLAGS CEXISTS] = 0; 
> 341 0404 INQ"FLAGS [FAB_OK] = 
: 343 0405 INQ7FLAGS (BY_FILE) = 0; 
: G 406 RET_STATUS = T; 
3; 344 0407 2 RES_OR_EXP_LEN = 0; ! No name available yet 
: a? 0408 ¢ 
: 346 0409 ‘+ 
: 347 0410 ' Set UNWIND cleanup to be a no-op since LUB/1SB/RAB 
3; 348 0411 ' has not been pushed yet. 
: 49 pels !e 
; 350 041 
. 51 0414 L_LUNWIND_ACTION = FORSK_UNWINDNOP; 
5 26 Bo}? 
: 5 oi¢ '¢ 
3 54 041 ! Copy keyword argument List into array INQUIRE 
4; 333 0418 ! im canonical order. If FILE= is ASCIZ string, NAM_DSC is set 
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! up aS the name descriptor. May signal FORS_INVARGIOR after 


setup. 
FORSSOPECLO_ARG (KEYWD, ACTUALCOUNT (), INQUIRE, INQSK_KEY_MAX, NAM_DSC, 
DEF _DSC, 0, VAR_LENGTHS); 


'¢ 

! Mark IOSTAT as word or longword. This is done here so that 

! the general variable ghey onegt ithe will work for IOSTAT 

! without penalizing OPEN and CLOSE by doing the work in 

| FORSSOPECLO_ARG. 

iF ; INQUIRE CINQSK_IOSTAT] NEQ 0 
eat CINQ$K_IOSTAT_LJ 

VAR_LENGTHS CINQSK_IOSTAT] 


VAR_LENGTHS CINQS$K_IOSTAT] 


32 
16; 


'¢ 
Initially, point FAB and NAM at our local blocks. 


FAB = FAB_BLOCK; 

NAM = NAM_BLOCK; 

14 

' Now we split dogenting on whether this is an INQUIRE by FILE or 

' an INQUIRE by UNIT. f either FILE or gig A . present. it 
y ‘ 


} is an INQUIRE by FILE. Otherwise it is an INQUI 


ne CINQSK_FILE] NEQA 0 OR .INQUIRE CINQSK_DEFAULTF) NEQA 0 
BEGIN 


+ 

! This is INQUIRE by FILE. Put the specified filename and/or 

! default file name in the FAB and do a $OPEN to both see if the 
! file exists and to get a resultant name string. Then S$CLOSE 
the file, because we no longer need it. 


INQ_FLAGS (BY_FILE) 
INQ"FLAGS CNAME_OK) 


IF . INQUIRE CINQSK_DEFAULTF] NEQA 0 
THEN 


1; 
1; ! Initially assume name is ok 


BEGIN 
LOCAL 
NAME: REF DSCSDESCRIPTOR; ! Default filename descriptor 
NAME = .JNQUIRE CINQSK DEF AULIE ! Get file name address 
IF .DNAME CDSCS$W_LENGTH] LEQU 25 
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POR MaUIRE FORTRAN INQUIRE 
1-01 


>; 413 pare 

; 416 047 

3; 415 0478 

>; 416 0479 4 
s 617 0480 4 
; 418 0481 

; 419 ET 

: 420 048 

s 62) 0484 3 
; 4 ¢ 0485 4 
s 62 0486 4 
3 tSe 0487 4 
; 425 0485 4 
; 426 0489 4 
: 427 0490 4 
; 428 0491 5 
$ ri Obes 5 
: 430 0493 5 
3; 431 0494 5 
s 46352 0495 4 
; 433 0496 4 
> 434 0497 3 
3; 435 0498 3 
: 436 0499 3 
3; 437 0500 3 
: 438 0501 3 
: 43 0502 3 
> 44 0503 3 
3 441 0504 4 
: 442 0505 3 
: 443 0506 4 
7 446 0507 6 
3: 445 0508 6 
; 446 0509 6 
3 447 0510 6 
; 648 0511 4 
; 449 b21§ 4 
; 450 051 4 
3 6451 0514 4 
; 452 0515 5 
: 453 0516 5§ 
; 454 0517 § 
3; 455 0518 5 
: 456 0519 5 
3 457 0520 5 
; 458 0521 6 
3; 459 b256 5 
; 460 05 5 
; 461 0524 4 
; $66 0525 4 
; 46 0526 

3; 6464 B2 7 

: 465 528 

: 466 B23 9 

; 667 530 

: 468 bee 

; 469 0532 4 


Be 92:82:62 


NGTH); 


FAB [FAB$B_DNS] = .DNAME 
INTER); 


FAB CFABSL-DNA) = :DNAME 
END 


ELSE 
INQ_FLAGS CNAME_OK] = 0; 
END; 


p 
p 
SW 
$Aq 


om 


' Name is invalid 


IF . INQUIRE CINQSK_FILE] NEQA 0 
THEN 


IPTOR; ! Filename descriptor 
At ! Get file name address 


-FNAME CDSC$W_LENGTH); 
-FNAME COSC$A~POINTERJ; 


wR 
® 
bes | 
® 
Sad 
rc 
‘os 
~" 
22 
run 
ww 
nu 


ELSE 
> INQ_FLAGS CNAME_OK] = 0; ! Name is invalid 


‘+ 
Do a SPARSE and $SEARCH to see if the name is ok. 


IF .INQ_FLAGS CNAME_OK] 
IF SPARSE (FAB=FAB [0,0,0,0)) 
THEN 


! Disallow wildcards 


“WILD-TYPE OR 
NAMSM~WILD-VER)) NEQ 0 
THEN 
INQ_FLAGS CNAME_OK] = 0 
ELS 
BEGIN 
: Don't do $SEARCH for non-file-oriented devices. 
iF .BLOCK CFAB CFABSL_DEV], DEV$V_FOD;4, BYTE] 
SSEARCH (FAB=FAB [0,0,0,0)) 
om NAM CNAM$B_RSL] = .NAM CNAMS$B_ESL]; ! Use ESN instead 
seth : 
INQ_FLAGS CNAME_OK) = 0; 


J  ING.FLAGS CNAME_OK] ! No errors so far? 
BEGIN 
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FORS | MQUIRE FORTRAN INQUIRE 
1-01 


som 
te 
wm 
eon 
v0vo 
te 
—S 
woo 


1 
1 


470 5 IF .NAM CNAM$B_ESL] NEQ 0 
471 5 THEN 
} os 5 INQ_FLAGS CNAME_OK] = 1; ! It's a vaild filename 

47 5 IF_.NAM CNAM$B_RSLJ-NEQ 0 

474 05 THEN 

475 05 INQ_FLAGS CEXISTS] = 1; ! File exists 

476 05 END; 

477 054 

478 054 FAB CFABSV_NAM) = 1; 

479 054 

480 054 1+ 

tt B24 : Now attempt to SOPEN the file. We may fail for several 

4 ¢ 54 ! reasons, one of which is that someone else, maybe us, has 

48 54 ! the file locked. We try to recover from errors as gracefully 

484 54 ' as we can. 

485 = 

486 

487 IF .INQ_FLAGS CEXISTS) 

488 THEN 

489 IF SOPEN (FAB=FAB (0,0,0,01) 

490 THEN 

491 BEGIN 

492 SCLOSE (FAB=FAB (0,0,0,0]); 

493 INQ_FLAGS CFAB_OK] = 1; 

is es 

o38 INQ_FLAGS CEXISTS] = 0; ! If we can't open it, it doesn't exist. 
8 + 

$39 ! Use Resultant name string or Expanded name string, in order 


: 49 


of preference. 


RES_OR_EXP_LEN = .NAM CNAMSB_RSL]; ! Get Length of result 
IF [RES_OR_EXP_LEN EQL 0 


HEN 
RES_OR_EXP_LEN = .NAM CNAMSB_ESL]; 


ooo 
wn 


RMS expects us to keep doing SSEARCHs until no more files are 


DONA UE WN 0 ODNOAUES WN O ODNA UE WIN | © OO NGM EWN OO ONAYV EWN OOONAULS WW 
BEES FEA AANA NAAANANINAAI B&B EWE ANNAN BS BPEL 


SOOOCOSOOOCOCOSOCOOCO COCO SOO SOOO OOOOSOOOOOOOOOOOOOOoOoO 
00000909 09 09 09 09 09 09 SI NII SINS NS NN SOP AAA AAAS ITT 


5 

5 

5 

504 

505 

506 

507 ‘ 

508 : 3 

509 ! found. Well, we're not going to do that. The problem is that 
510 ! RMS has allocated an IFAB (internal FAB) for the SSEARCH sequence 
511 ! and, if the file is on a remote node, has a FAL task waiting for the 
512 ! next search. There is no clearly stated way of causing RMS to clean 
513 ! up. The way we will do it is to do another $PARSE on the 

514 ! FAB after we have zeroed the FNM,ESA and RSA pointers. 

313 This is to prevent RMS from overwriting them. 

517 

518 IF .INQ_FLAGS CNAME_OK] 

519 THEN 

520 N 

521 FAB CFABSL_FNA] = 0; 

258 F FABSB_FNS] = 0; 

52 FAB LFABSL_DNA] = 0; 

524 N NAMSL_ESA] = 0; 

525 NAM LNAMSL_RSA]) = 0; 

526 SPARSE (FAB=FAB £0,0,0,0)); 
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14-Sep-1984 FORRTL.SRC 
; 7 90 END; 
H 8 91 
; ] 38 IF .INQ_FLAGS CNAME_OK) 
: 33 89, THEN BEGIN 
Te ; 0595 4 \¢ 
3 > 596 4 ! If we successfully opened the file, all the necessary info 
; 534 0597 4 ! is now in the FAB. We have to scan the logical units to see 
; ; 5 bees ? if we Rave the file open, if we couldn't open the file. 
3; Sor 0600 4 
ye. : 808) 4 LOCAL 
; 3 602 4 LUN_FLAG; ! Flag to OTSS$NEXT_LUN 
; 540 06035 4 
; 541 0604 4 + 
; 2¢6 0605 4 ! Restore resultant or expanded name string 
; 54 0606 4 le 
; 544 0607 4 
> 545 0608 4 NAM CNAMSL_RSA] = RES_OR_EXP_NAME; 
; 546 0609 4 NAM CNAMS$B_RSL] = .RES_OR_EXP_LEN; 
; 547 0610 4 
; 548 0611 4 '+ 
; 549 belg 4 ! Begin scan of allocated logical units. 
; 390 0613 4 l- Fp 
; 551 0614 4 LUN_FLAG = 0; ' Initialize LUN_FLAG 
3 226 0615 4 IF .RET_STATUS THEN ! If no error so far 
: 0616 4 DO ! Until no more units 
> 554 0617 5 EGIN 
3: 399 0618 5 FORSSNEXT_ LUN (LUN_FLAG, UNIT); ! Get next used LUN 
: 556 0619 5 IF .LUN_FCAG NEQ 0 
; 227 0620 5 THEN 
; 558 0621 6 BEGIN 
; 559 0622 6 '¢ 
; 560 0623 6 ! We have a unit which has been allocated by FORTRAN. 
; 561 0624 6 ! We call FORSSCB_FETCH to fetch the CCB. If the. 
; 206 0625 6 ! unit is opened and the names match then we use it, 
; 2 0626 6 ! else we tr ages. This matching must be done while 
i 564 0627 6 ! ASTs are disabled so as to prevent someone from 
s 36S 0628 6 ' playing in the LUB while we are deciding. 
; 566 0629 6 te 
; 567 0630 6 
; 568 0631 6 AST STATUS; ! Returned from $SETAST 
; 569 065¢ 6 AST_ STATUS = $SETAST (ENBFLG = 0); ! Disable ASTs 
; 570 $63 6 FORSSCB_FETCH (.UNIT); ! Fetch the CCB for this unit 
; or 634 6 IF .CCB NEQ 0 
: 276 0635 6 
, of 0636 6 IF .CCB CLUBSV_OPENED) 
3; 574 st 44 6 THEN 
s S75 0638 6 IF CHSEQL (.CCB CLUB$B_RSLJ, .CCB CLUBSA_RSNI, 
: 576 0639 6 -RES_OR_EXP_LEN, RES_OR_EXP_NAME, %C* ‘) 
3 HAG pos? 6 
3; «4578 641 7 BEGIN 
; 579 0642 7 '¢ 
; 580 6435 7 ! We have a match. Call PUSH_CCB to 
; 581 644 7 ' push the unit and return any errors 
; 286 0645 7 ' as its value. ASTs are still disabled. 
; 58 0646 7 le 


AX-11 Bliss-32 V4.0-7 
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! Reenable ASTs 


! Unit in range 0-99? 


H 2 
FORSINQUIRE FORTRAN INQUIRE 16-Sep-1984 00:27: 
eet 1-Sep-19 4 99:95:69 
; 584 647 7 INQ_FLAGS CUNIT_OK] = 1; 
3; 3B° aes 7 STATUS = PUSH CCB (.UNIT); 
; 586 0649 7 IF_.AST_STATUS EQL SS$_WASSET 
; Ser 650 7 THEN 
; 588 0651 7 SSETAST (ENBFLG = 1); 
; 589 $636 7 IF .STATUS 
; 590 0655 7 THEN 
; 591 0654 | BEGIN 
3 236 0655 L_UNWIND ACTION = _FORSK_UNWINDPOP; 
; 59 0656 | INQ_FLAGS sce OK] = 1; 
; 594 0657 INQ-FLAGS CEXISTS) = 1; 
; 595 Beek | EXITLOOP; 
; 596 065 END 
s S97 0660 7 ELSE 
; 598 0661 8 BEGIN 
; 599 poee 8 '¢ 
; 600 0665 8 ' The push failed. Just 
; 601 0664 8 ' exit the Loop. 
; 602 0665 8 be 
: 603 0666 8 EXITLOOP; 
; 604 0667 7 END; 
; 605 0668 6 END; 
H 0669 6 ‘? : 
; 607 0670 6 ! No match. Continue scanning units. 
; 608 0671 6 t= 
; 609 0672 6 IF .AST_STATUS EQL SS$_WASSET 
; 610 0673 6 THEN 
3; 611 0674 6 SSETAST (ENBFLG = 1); ! Reenable ASTs 
: 612 0675 5 END; 
; 613 0676 5 END 
3 614 0677 4 UNTIL .LUN_FLAG EQL 0; ! Until no more LUNs 
3 615 0678 4 
; 616 0679 4 END 
: 617 0680 3 ELSE 
; 618 0681 4 BEGIN 
3; 619 0682 4 '¢ : 
; 620 0683 4 ' Name is invalid. Point “'resultant name’’ at filename. 
: 621 0684 4 l= 
: 622 0685 4 
; 623 0686 4 NAM CNAMSL_RSA] = .FAB CFABSL ENA]; 
> 624 0687 4 NAM CNAM$B~RSL] = .FAB CFABSB-FNSJ; 
; 625 0688 3 END; 
; 626 0689 END 
; os? 690 
: 628 691 ELSE 
; 663 069 
; 630 069 BEGIN 
3; 631 0694 '¢ 
; O36 0695 ! This is INQUIRE by UNIT. 
; 63 696 != 
3; 634 697 : 
; 635 0698 UNIT = . INQUIRE CINQSK_UNIT]; ! Get unit number 
; 636 0699 IF .UNIT GEQ LUBSK_LUNMIN AND .UNIT LEQ LUBSK_LUN_MAX 
; 63 700 THEN 
; 638 701 4 BEGIN 
; 639 18 4 INQ_FLAGS CUNIT_OK] = 1; 
: 660 7 4 '¢ 


FORSINQUIRE FORTRAN INQUIRE 1b-5e ~1984 AX-11 BLiss-32 v4.0 
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; 641 704 4 ' We know that the unit is a yal i fuaber, but we don't 
; 64 705 4 ' know if it has been opened “y FORTRAN. Call PUSH CCB 
3; 64 7 § 4 ! to attempt the push. It may fail because the unit was 
; 644 7 4 ' not allocated by FORTRAN or ” pecause of recursive 1/0, 
; 645 7 3 4 ' or other reasons. 

s 646 7 4 te 

; 647 710 4 STATUS = PUSH_CCB (.UNIT); 

; 648 711 4 IF .ST ATU S 

3; 649 at 4 THEN 

; 650 71 2 BEGIN 

: 651 0714 ‘+ 

: 626 Bote ' Success. Use this CCB. 

s 65 716 t= 

; 654 0717 L UNWIND ACTION = FORSK_UNWINDPOP; 

: 655 0718 5 IF .CCB CLUBSV_OPENED] ~! Unit open? 

; 656 0719 5 THEN 

3 657 0720 6 BEG 

; 658 0721 6 INQ_FLAGS CCCB OK} zis 

: 659 07 ; 6 INQ-FLAGS CEXISTS) = 1; 

: 660 0723 6 INQ"FLAGS CNAME_OK) = 1; 

: 661 0724 6 

; 66 0725 5 ELSE 

; 66 0726 6 BEGIN 

; 664 0727 6 

; 665 0728 6 "the unit is not open. Return it and try again. 
; 666 or 6? 6 in 

3 667 0730 6 FORS$$CB_POP (); ' Return the LUB 

; 668 0731 6 L_UNWIND PACTION = FORSK_UNWINDNOP; 

: 669 or 86 5 END; 

; 670 0733 5 END 

; 671 0734 4 ELSE 

; 672 0735 4 

s 675 0736 4 i The push failed. 

; 674 0737 4 in 

; 675 0738 4 RET_STATUS = .STATUS; 

: 676 0739 3 D; 

: 677 0740 2 END; 

; 678 0741 2 
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14-Sep-1984 
£80 i MT the CCB i Lid, i he FAB d NAM i h k 
e s va tt N 
eB ok i is the fe v poin e an pointers at the blocks 
yet 745 ie 
685 IF .INQ_FLAGS CCCB_OK) 
on8 THEN 
6 BEGIN 
688 FAB = CCB_FAB £8.00 .03: 
689 NAM = CCB_NAM (0,0,0,0); 
690 END; 
691 
69 '¢ 
69 ' Now fill in return values. 
694 le 
695 
696 
697 i EXIST - Logicat variable 
698 i” By file = TRUE if file exists, otherwise FALSE. 
44 By unit - TRUE if unit exists (0-99), otherwise FALSE. 
701 iF - INQUIRE CINQ$K_EXIST] NEQ 0 
70 IF .INQ_FLAGS CEXISTS] OR ((NOT .INQ_FLAGS CBY_FILE]) AND 
A -ING_FLAGS CUNIT_OK]) 
06 RESP_VEC CINQ$K_EXIST] = -1 
708 RESP_VEC CINQ$K_EXIST] = 0; 


; 0 
; 0 
; 0 
: 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
: 0 
; 0 
; 0 
; 707 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
; 0 
: 0 
; 0 
; 0 
; 0 
; 0 
: 0 
: 


'¢ 
i OPENED - logical variable 
i TRUE if unit is opened, otherwise FALSE. 


IF . INQUIRE CINQ$K_OPENED) NEQ 0 


IF (.INQ_FLAGS CCCB_OK]) OR ! True if unit connected to a file 
(. INQ” FLAGS CBY_FILE) AND . INQ_ ues" CUNIT_OK)) 


HEN 
nee oe CINQ$K_OPENED] = -1 
RESP_VEC CINQ$K_OPENED] = 0; 
'¢ 
i NUMBER - integer variable 
i By file - unit number that file is connected to. 
: By unit = returns unit number if connected. 


IF . INQUIRE CINQSK_NUMBER] NEQ 0 
IF .INQ_FLAGS CUNIT_OK) 

RESP_VEC CINQSK_NUMBER] = .UNIT 

RESP_VEC CINQSK_NUMBER] = 


SNS SSS SS 
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: 737 799 'e 
; 738 4 ! NAMED = Lo seat variable 
; 739 801 ! If file aname, then this is TRUE. If file is opened SCRATCH, 
3 oe oe } then it is considered not to be named. 
3; 74 it IF . INQUIRE CINQSK_NAMED] NEQ 0 
s 76 805 THEN 
: 744 ano BEGIN 
; 745 80 IF .INQ_FLAGS CNAME OK) 
; 746 tri THEN 
3: 767 809 RESP_VEC CINQSK_NAMED] = -1 
: 748 pei 
; 749 8 11 RESP_VEC CINQS$K_NAMED] = 0; 
; P29 51g IF _.INQ_FLAGS CCCB_OK] THEN IF .CCB CLUBSV_SCRATCH] 
§ P2¢ BBiz RESP_VEC CINQS$K_NAMED] = 0; 
. ze 0815 END; 
: 754 Baie 
3 755 081 4 
; 756 0818 i NAME = character variable 
a 6 Tor 0819 i If NAMED would be true, then the fully qualified file name that results. 
; 728 base ! This file might not exist, but the filename is valid. 
; 760 0832 IF . INQUIRE CINQ$K_NAME] NEQ 0 
: 761 082 THEN 
; 76 0824 BEGIN 
; 76 0825 ; LOCAL 
: 764 0826 C : REF DSCSDESCRIPTOR; 
s 765 0827 NAME_DSC™= Fa tt —E CINQ$K_NA 
> 766 0828 CHSCOPY (.NAM CNAMSB_ RSL. NAM ENAMSL_RSAJ, %C° 
: 767 0829 NAME _DSC DSCSu- “LENGTHI, .NAME_DSC CDSCSA_ POINTER); 
; 768 0830 § § 
3; 769 tt 
» 770 0 3 2 '¢ 
; 771 08 2 i ACCESS = character variable 
3; 772 0834 2 i “Access type s ecified by OPEN or DEFINE FILE. Can be ‘SEQUENTIAL’, 
3 oe oth ‘DIRECT’, "KEYED' or ‘UNKNOWN’ if not connected. 
: 775 0837 if . INQUIRE CINQSK_ACCESS) NEQ 0 
: 776 0838 THEN 
3 777 0839 BEGIN 
; 778 0840 7 VEC CINQ$K access) = UNKNOWN; 
: 779 0841 aes FLAGS COCB_OK] 
; 780 4 
: 781 084 EN -CCB CLUBSV_DIRECT] 
; 78 0844 
; 78 0845 RESP_VEC LINQSK_ACCESS] = DIRECT 
; ree pase FL SE IF [CCB CLUBSV_KEYED 
: ree ORs RESP_VEC CINQ$K_ACCESS] = KEYED 
; 788 850 RESP_VEC CINQSK_ACCESS] = SEQUENTIAL 
: 789 851 ELSE 
; 790 B26 Mh sial VEC CINQ$K_ACCESS] = UNKNOWN; 
; 791 5 
; 79 See 
; 79 0855 '¢ 
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£36 ' SEQUENTIAL = character yariable 
: If ACCESS="SEQUENTIAL' is allowed for this file, then this is ‘YES’. 
13 | An answer of ‘NO’ is impossible for VAX, since ALL files can be accessed 
B28 sequentially. However, if we can't open the file, we return ‘UNKNOWN’, 
861 IF . INQUIRE CINQSK_SEQUENTIA) NEQ 0 
£06 THEN 
6 IF .INQ_FLAGS CEXISTS) 
864 THEN 
yt RESP_VEC CINQSK_SEQUENTIA) = YES 
Ose? RESP_VEC CINQ$K_SEQUENTIA] = UNKNOWN; 
0869 + 
0870 ' DIRECT - character variable 
0871 ! If ACCESS="DIRECT’ is allowed for this file, then we answer 'YES'. 
+h) If not allowed, answer "NO'. If we can't open the file, answer ‘UNKNOWN’. 
0874 IF . INQUIRE CINQSK_DIRECT] NEQ 0 
875 THEN 
0876 BEGIN 
0877 RESP_VEC CINQ$K_DIRECT] = UNKNOWN; 
0878 IF .INQ_FLAGS CEXISTS) 
0879 THEN 
0880 4 BEGIN 
0881 4 SELECTONE .FAB CFABSB_ORG) OF 
tt 4 SET 
0883 4 
0884 4 CFABSC_SEQ) : 
eH 2 4 -FAB CFABSB_RFM) EQL FABSC_FIX 
stt4 ? RESP_VEC CINQ$K_DIRECT] = YES 
0889 4 RESP_VEC CINQSK_DIRECT = NO; 
0890 4 CFABSC_REL) = 
0891 4 RESP_VEC CINQ$K_DIRECT) = YES; 
94 4 CFABSC_IBX) : 
0895 4 RESP_VEC CINQ$K_DIRECT] = NO; 
0894 4 
0895 4 TES; 
0896 END; 
0897 END; 
0898 
899 '¢ 
900 ' KEYED - character variable 
0901 ! Is ACCESS="KEYED' allewed for this file? ‘YES' if it's INDEXED 
oa organization, 'NO' if not and ‘UNKNOWN’ if we can't tell. 
0904 IF . INQUIRE CINQ$K_KEYED] NEQ 0 
905 THEN 
90 BEGIN 
90 RESP_VEC CINQS$K KEYED) = UNKNOWN; 
308 IF .TNQ_FLAGS CEXISTS 
909 } THEN 
910 4 BEGIN 
911 «4 SELECTONE .FAB CFABSB_ORG) OF 
0912 4 SET 
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H Q3 913 4 
; § 914 & CFABSC_IDX] : 
$ 2 915 4 RESP_VEC CINQSK_KEYED] = YES; 
3 4 218 4 CFABSC_SEQ,FABSC_REC) : 
; 855 917 4 RESP_VEC CINGSK_KEYED] = NO; 
5 528 918 4 
; 85 919 4 TES; 
; 858 9 END; 
; 859 921 END; | 
; Bet 9 : + 
3 B66 924 ' FORM = character variable 
; Hy 925 ' If the file is connected for FORMATTED or UNFORMATTED I/0, then 
; 864 9 § : feturn the string ‘FORMATTED’ or 'UNFORMATTED’ as is appropriate. 
; 865 09 ! If we can't tell, return ‘UNKNOWN’. 
; 866 0928 te 
; 867 0929 
; 868 0930 IF . INQUIRE CINQ$K_FORM) NEQ 0 ‘ 
; 869 0931 THEN 
; 870 09 ¢ BEGIN 
; «871 093 RESP_VEC CINQS$K_FORM] = UNKNOWN; 
3 ors 0934 IF . INQ_FLAGS CCcB_OK) 
s 87 0935 THEN 
3; 874 0936 IF .CCB CLUBSV_FORMATTED) 
; 875 0937 H 
; 876 0938 RESP_VEC CINQSK_FORM] = FORMATTED 
; 877 0939 ELSE IF .CCB CLUBSV_UNFORMAT] 
; 878 0940 THEN 
; 879 0941 3 RESP_VEC CINQ$K_FORM] = UNFORMATTED; 
; 880 R266 END; 
; 4881 094 | 
; 88 0944 + 
; 88 0945 * FORMATTED = character variable 
; 884 0946 ! If FORM="FORMATTED' allowed? If so, answer 'YES'. There is 
; 885 0947 2 : 2 cd to answer ‘NO’. 
; 886 0948 2 ! *"UNKNOWN' if we can't tell. | 
; 887 0949 § !- 
; 888 0950 
; 4889 0951 2 IF . INQUIRE CINQ$K_FORMATTED] NEQ 0 
; 890 B336 THEN 
; 891 095 IF .INQ_FLAGS CEXISTS) 
; 489 0954 Hi 
; 89 0955 RESP_VEC CINGS$K_FORMATTED] = YES 
: 894 8338 ELSE 
; «4895 95 RESP_VEC CINQ$K_FORMATTED] = UNKNOWN; 
; 896 328 
; 97 95 
; 898 960 '¢ 
: 899 961 ! UNFORMATTED - character variable 
; 900 306 1 Js FORM="UNFORMATTED' allowed? If so, answer ‘YES’. 
: 901 96 : NO’ is tmpossible. ‘UNKNOWN’ if we can't tell. 
; 90 964 = 
; 90 965 
3; 904 96 IF . INQUIRE CINQS$K_UNFORMATT] NEQ 0 
3; 905 96 THEN 
3; 906 968 IF .INQ_FLAGS CEXISTSI 
; 907 0969 THEN 
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; 309 379 RESP_VEC CINQ$K_UNFORMATT] = YES 
; 91 97 RESP_VEC CINQSK_UNFORMATT] = UNKNOWN; 
; aif 398 . * 
; 81g 974 + 
; 91 975 ! ORGANIZATION = character string 
; 914 ar8 ! Return the file organization as "SEQUENTIAL', ‘RELATIVE' or 
; 915 97 ' *INDEXED'. Return ‘UNKNOWN’ if we can't open the file. 
; 916 44 te 
; P17 97 
; 918 980 IF .INQUIRE CINQ$K_ORGANIZAT] NEQ 0 
; 919 981 THEN 
; 920 9 ; BEGIN 
; 921 9 RESP_VEC CINQ$K_ORGANIZAT] = UNKNOWN; 
; 4 ; 441 IF .INQ_FLAGS CEXISTS 
; 924 986 SELECTONE .FAB CFABSB_ORG] OF 
; 35? 987 SET 
; 926 988 
; 92? 0989 CFABSC_SEQ) : 
; 928 0990 RESP_VEC CINQ$K_ORGANIZAT] = SEQUENTIAL; 
; 4 0991 CFABSC_RELJ : 
; 930 B398 RESP_VEC CINQ$K_ORGANIZAT] = RELATIVE; 
; 931 099 CFABSC_IBx) : 
; 932 0994 RESP_VEC CINQS$K_ORGANIZAT] = INDEXED; 
; 933 0995 
; ote 0996 TES; 
; 935 0997 END; 
; 936 0998 2 
; 937 6999 '¢ 
; 938 1000 ! RECL - integer variable 
; 939 1001 ! Return the record length of the file. If the file is opened. 
; 940 1008 ! the current length is taken. Else if the file exists the 
3 941 100 ! size used is the MAX of FABSW_MRS and XAB$W_LRL. 
3 a6 1004 ! The record length is in bytes unless the file is connected for 
; 94 1005 ! UNFORMATTED, in which case the length is in longwords. 
3 6946 1006 : the file is connected SEGMENTED, then 2 bytes are subtracted 
; 945 1007 ! from the length. This is the inverse of the calculations 
; 946 1008 2 ! done by OPEN. If the record length can not be determined, 
; 947 1009 ! 0 is returned. 
; 948 1010 le 
; 949 1011 IF . INQUIRE CINQSK_RECL] NEQ 0 
; 950 11g THEN 
; 6951 101 BEGIN ; 
3 236 1014 RESP_VEC CINQS$K_RECL) = 0; ! If recordsize is undefined 
; 95 1015 IF .INQ_FLAGS COCB_OKI 
3; 6954 1016 THEN 
; 6955 1017 4 BEGIN 
: 956 1018 4 IF .CCB CLUBSW_RBUF_SIZE] NEQ 0 
3 Per 1019 4 THEN 
; 958 1020 2 BEGIN 
; 959 1021 RESP_VEC CINQ$K_RECL] = .CCB CLUBSW_RBUF_SIZE); 
; 960 1088 IF tee CLUBSV_ SEGMENTED) 
; 962 1094 RESP_VEC CINQSK pect = ,RESP_VEC CINQ$K_RECL] = 2; 
; 963 1963 IF_,CCB CLUBSV_UNFORMA 
3 964 1026 THEN 
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Ot? 10730071384 93:93:85 FORRTL.SRCIFORINGUIR.B es : (4) | 1- 
; 965 1027 5 RESP_VEC CINQSK_RECL] = .RESP_VEC CINQS$K_RECL] / %UPVAL; : 
; 966 1028 4 END; ° 
; 967 1029 4 END : 
> 968 1030 ELSE IF .INQ_FLAGS CFAB_OK] ‘ 
; 969 1031 THEN : 
; 970 1936 RESP_VEC CINQSK_RECL] = MAXU (.FAB CFABSW_MRSJ, ‘ 
: 971 10 ~XAB_BLOCK CXABS$W_LRLJ); . 
; 97 1034 END; , 
; 974 1036 '+ _- 
; 975 1037 ! NEXTREC = integer variable a 
; 976 1038 § : If the file is connected for direct access, return the next logical | e 
; arr 1973 ! record number. If it is not connected for direct access, return 0. | . | 
3; 979 1041 IF_. INQUIRE CINQ$K_NEXTREC] NEQ 0 ‘ 
: 980 1006 THEN : 
; «981 104 BEGIN ‘ 
; 98 1044 3 RESP_VEC CINQS$K_NEXTREC) = 0; - | 
; 98 1045 3 IF_.INQ_FLAGS CCCB_OK] THEN IF .CCB CLUBS$V_DIRECT) | : 
; 984 1046 3 THEN . 4 
> «985 1047 3 RESP_VEC CINQSK_NEXTREC) = .CCB CLUB$L_LOG_RECNO]; e, 
; 986 1048 2 END; a4 
; 987 1049 2 . | 
; 988 1050 2 '+ . | 
; «989 1051 2 ! BLANK = character variable ., 
; 990 1036 2 ! If the file is connected for FORMATTED, return the BLANK= :, 
; 991 1053 2 value in effect, either ‘ZERO’ or ‘NULL’. If we can't tell, . 
; 1054 2 ! return ‘UNKNOWN’, :, 
3; 1055 2 te é | 
3 994 1056 2 IF_. INQUIRE CINQS$K_BLANK] NEQ 0 : 
> 995 1057 é THEN | : | 
: 996 1058 BEGIN ; 
; 997 1059 3 RESP_VEC CINQ$K_ BLANK] = UNKNOWN; 2 | 
: 998 1060 3 IF .INQ_FLAGS COCB_OK] THEN IF .CCB CLUBSV_FORMATTED) 
; .999 1061 3 THEN 
: 1000 1062 4 BEGIN 
: 1001 1063 4 IF .CCB CLUBSV_NULLBLNK) 
; 1002 1064 4 
; 1003 1065 4 RESP_VEC CINQ$K_BLANK] = NULL 
: 1004 1066 4 ELS 
; 1005 1067 4 RESP_VEC CINQS$K_BLANK] = ZERO; 
: 1006 1068 3 END; 
: 1007 1069 END; 
: 1008 1070 
; 1009 1071 ‘+ 
; 1010 1076 ! RECORDTYPE = character variable 
; 1011 107 ! Return the file's recordtype. ‘FIXED’ or ‘VARIABLE’. Return 
3 iors 1074 : "SEGMENTED if the file is currently connected for SEGMENTED. 
; ipl? 1322 ! "UNKNOWN' if we can't tell. 
: 1015 1077 IF . INQUIRE CINQS$K_RECORDTYP) NEQ 0 
3; 1016 1078 THEN 
; 1017 1079 BEGIN 
: 1018 1980 RESP_VEC CINQSK ReCORpT YP. = UNKNOWN; : 
3 1019 1081 IF .INQ_FLAGS CEXISTS 
: 1020 1356 THEN 
3 1021 108 SELECTONEU .FAB CFABSB_RFM) OF 
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ORS 

-01 

: 10 ¢ 1084 SET 

; 10 1085 

3 1024 1086 CFABSC_FIX] 

3 1025 108 RESP VEC. CINOS K ERECORDTYP) = FIXED; 
3: 10 § 1088 CFABSC_VAR 

3 10 1089 eee vec Cinask -RECORDTYP] = VARIABLE; 
; 1028 1090 CFABSE 

: 1029 1091 RESP vec “CINOSK -RECORDTYP] = STREAM; 
3 1030 109¢ CFABSE 

: 1031 109 SESp vet CiNasK -RECORDTYP] = STREAM_CR; 
; 10 ¢ 1094 CFABSES 

; 10 1095 RESP "VEC CiNasK _RECORDTYP] = STREAM_LF; 
; 10 1096 TES; 

: 1035 1097 IF .INQ_FLAGS CCCB_OK) 

: 1036 1098 3 THEN 

3 1037 1099 IF .CCB CLUBSV_SEGMENTED) 

: 1038 1100 THEN 

3 1039 1101 RESP_VEC CINQSK_RECORDTYP] = SEGMENTED; 
; 1040 1108 2 END; 

3 1041 1103 2 

3 1088 1104 ‘4 

+ 104 1105 ' CARRIAGECONTROL 

: 1044 1106 . 

3 1065 1107 2 IF .INQUIRE CINQS$K_CARRIAGE] NEQ 0 

3 1046 1108 THEN 

3 1067 1109 BEGIN 

: 1048 1110 RESP VEC CINQ$K_CARRIAGE] = UNKNOWN; 

3 1049 1111 3 -INQ_FLAGS CEXISTSJ 

; 1050 aa 3 thE EN 
: 1051 1113 4 BEGIN 
; 1038 1114 4 IF .FAB CFABSV_FTNJ 
3 105 1115 4 THEN 
: 1054 1116 4 RESP_VEC FINOSK. CARRIAGE] = FORTRAN 

: 1055 1117 4 ELSE IF [FAB CFABSV_CRJ 

3 1056 1118 4 
3 1057 1119 4 RESP_VEC CINQ$K_CARRIAGE] = LIST 

3; 1058 1120 4 ELSE IF ROT .FAB CFABSV_PRN) 

3 1059 1121 4 THEN 

3 1060 1122 4 RESP_VEC CINQS$K_CARRIAGE) = NONE; 

: 1061 1123 4 D 

; 1062 1124 2 END; 


.---— 
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3: 1064 1125 + 

: 1065 11 § ! Store all responses. 

3 1208 11 l= 

: 106 1128 

; 1068 1°29 + 

; 1368 4130 ' Loop prem keyword table and store value. Value may be 

: 10/0 1131 ' mumeric, character or ignorable. 

132 1138 di 

; 1078 1134 INCR 1] FROM {nase .{95taT TO INQSK_KEY_MAX DO 

: lure 1135 IF . INQUIRE C.1) NEQ 0 

; 1075 1136 HEN 

3 Ine 1137 CASE .RESP_TYPES C.1] FROM 0 TO 2 OF 

; 107 1138 SET 

; 1078 1139 

; 1079 1140 {0] : : 

; 1080 114 ; ! Do nothing. Value is already stored. 

:; 1081 114 : 

; ee 114 C1) : ! Numeric value. 

: 108 1144 BEGIN 

: 1084 1145 3 LOCAL 

: 1085 ll6o 3 DEST : REF BLOCK C,BYTE); 

; 1086 1147 3 DEST = . INQUIRE (.1); ! Address of destination 
: 1087 1148 3 DEST CO, 0, .VAR_LENGTHS C.1], 1] = .RESP_VEC C.1); 
: 1088 1149 2 END; 

3; 1089 1150 2 

: 1090 1151 ¢ 2) : ! Character value. 

; 1091 1128 BEG! 

: Ione 1153 3 LOCA 

: 109 1154 ; DSC _: REF DSCSDESCRIPTOR, 

: 1094 1155 WHICH; ! Key of response value 

: 1095 1156 3 DSC = . INQUIRE C.1); ! Result descriptor 

3; 1096 1157 3 WHICH = .RESP_VEC C.1]; 

; 1097 1158 3 CHSCOPY (.RESP_LENS C.WHICH], .RESP_VALS C.WHICH] + RESP_VALS, 
3 1098 1159 3 zc’ *, .DSC COSCSW_LENGTH], .DSC CDSCSA_POINTER)); 
3; 1099 1160 2 END; 

; 1100 1161 2 

3; 1101 1162 2 TES; 
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FORS INQUIRE FORTRAN INQUIRE 16- 
1-01 14- FORRTL.SRCJFORINQUIR. 2;1 


<P. AAK=RESP_VALS>, <P.AAL=RESP_VALS>, 
<P .AAM-RESP-VALS>, <P. AAN-RESP-VALS>, 
<P. AAO=RESP_ Rig ide <P. AAP=RESP_VALS>, 


eteeene 
Ba Be Be Be Be Be 


<P. AAQ=RESP~V , <P.AAR=RESP-VALS>, F 

<P.AAS-RESP-VALS>, <P.AAT=RESP-VALS>, ; 

<P, AAU=RESP_VALS>, <P.AAV-RESP~VALS> ; 

08 05 04 04 07 08 0B 09 OA 05 06 07 02 03 01 OODDES RESP_LENS: ; 
.BYT 1, 3. 3. 7, 6, 5. 0,.9,.41, 8. Tee Se * 2 ; 

09 09 06 04 04 07 09 000F3 5, J Mae: he He te 9' : ; 
OOOFA .BLKB 2 ; 

OO# OOOFC RESP_TYPES: : 

.BYTE 922) : ; 

04 00112 .BYTE : : 

O# 0011 -BYTE OC7) : : 

02 02 01 01 02 02 O02 02 02 02 00 01 01 01 O01 OOTIA ae 2b hh be ee 2 8 2 ts ti ke 3 ; 
02 02 02 OR 1S? 2, ae a 3 3 

54 41 44 2€ O012C P.AAW: ASCII \.DAT\ ; ; 
.EXTRN FORSSERR OPECLO : 

-EXTRN FORSSERRSNS g 

wEXTRN FORSSOPEC KON ane : 

.EXTRN FORS$S$CB_PUS sh. FOR$$CB_POP ; 

-EXTRN FORSSCB_ reve ronsests NO_LUB 3 

-EXTRN LIBSSIG O RET, STOP F 

~EXTRN E ORSSNERT met} sb sSPARSE 3 

-EXTRN SYSSSEARCA, SYSSOPEN 3 

EXTRN SYSS$CLOSE, SYSS$SETAST : 

OFFC 00000 -ENTRY FORSINQUIRE , Save R2,R3,R4,R5,R6,R7,R8,R9,~ ; 0305. : 

5E FCS8 CE 9E 00002 MOVAB -936(SP), SP : | ; 
FF2C CD 7C 00007 CLRQ INQUIRE > 0347) : 
FF34 CD 7C 0000B CLROQ INQUIRE ; 3 
FF3C }§=6CD «7C «O000F CLROQ INQUIRE ; : 
FF44 CD 7C 00013 CLRQ INQUIRE ; ; 
FF4C CD 7C 00017 CLROQ INQUIRE ; ; 
FF54 CD 7C 0001B CLROQ INQUIRE : : 
FF5C CD 7C OOO1F CLRO INQUIRE ; : 
FF64 CD 7C 00023 CLRQ INQUIRE ; : 
FF6C 6 CDCSP7C 90027 CLROQ INQUIRE : : 
FF74 CD 7C 0002B CLROQ INQUIRE ; : 
FF7C }«6CDSCP7C 000¢¢ CLRQ INQUIRE : : 
84 AD 7C 00033 CLROQ INQUIRE ; : 

g¢ AD 7C 990 6 CLRQ INQUIRE : : 

4 ad 7¢ CLRQ INQUIRE : : 

9¢ aD 7¢ 999 C CLRO INQUIRE ; : 

AS AD 7C 0003F CLROQ INQUIRE ; : 

AC AD 7C¢ 90048 CLRQ INQUIRE ; : 

B46 AD 7C 0004 CLRO INQUIRE ; : 

BC AD 7C 00048 CLRQ INQUIRE ; : 

C4 AD 7C 00048 CLROQ INQUIRE ; : 

CC AD ?C O004E CLR INQUIRE ; 3 

D4 AD 7C 00051 CLRO INQUIRE ; : 

pC 6AD C7 094 CLROQ INQUIRE ; 3 

E46 aD 7C 7 CLRO INQUIRE ; : 

EC AD D4 0005A CLRL ' UNWIND ACTION ; : 

6D OSAE CF DE 00050 MOVAL 7$, (FPY ; : 
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0050 =s«BF 00 6E 00 2C 0006 MOVCS #0, (SP), #0, #80, $RMS_PTR : 0390 : 
gE? D ited . : ; 
Fe? cD 5 0 F 80 006¢ MOVW #20483, $RMS_PTR : : 
FE92 = CD 4F02 «BF OB 00 MOVW #20226, SMS TPIR+22 : ; 
FESB CD 2 90 O007A MOVB $RMS_PTRI31 : ; 
FEAO CD FESO CD 9E 0007F MOVAB XAB_BLOCR, "Sais _PTR+36 : ; 
FEAG CD FECC CD 9E 00086 MOVAB NAM-BLOCK, $RMS~PTR+40 : ; 
FEAC CD FF6B OCF oe 9080 MOVAB P, AK. $RMS PRTG : ; 
FEB1 CD 04 9 94 MOVB #4, $RMS_PTR+53 : ; 
0060 8F 00 6E ive 00 2c 60099 MOVCS #0, (SP)> #0, #96, $RMS_PTR + 0392 : 
FECC CD 600 br BO 00A3 MOVW #24578, $RMS_PTR : : 
FECE CD 1 BE OOOAA MNEGB #1, $RMS PTR : : 
FEDO CD OOF8 CE 9E OOOAF MOVAB RES On PRP NAME . SRMS_PTR+4 : : 
FED6 CD 01 8€& 00086 MNEGB “$RAS PTR+ : ; 
FEDB CD OOF8 CE 9E 000B MOVA nes _OR eRe NAME $RMS_PTR+12 : ’ 
2c 00 6E ate 00 2c 990¢ MOVC (SP), #O, #44, $RAS_PTR : 0393 : 
FESO CD 2C1D 8F BO OOOCA MOVW n1295, SRMS_PTR : : 
00CcO—Os€BF 00 6E —s 00 2¢ 90001 movCS #0, (SP), #0, #192, RESP_VEC > 0398. ; 
30 00 6£ 00 2C OOODA MOVCS #0, (SP), #0, #48, VAR_LENGTHS : 0399) ; 
00c8 CE 000DF : | ; 
57 3F BA O00E? BICB2 #63, INQ_FLAGS + 0405 | : 
5A 01 DO 000E MOVL #1, RET STATUS + 0406 | : 
55 D4 000E8 CLRL RES_OR_EXP ; 0407 3 
EC AD 01 DO OOOEA MOVL #1, L_ONWIND ACTION 3 0414 3 
00c8 CE 9F OOODEE PUSHAB VAR_LENGTHS 3 0423) 3 
7E D4 O00F2 CLRL = (SP) : F 
FO AD 9F OOOF4 PUSHAB DEF _DSC : F 
F8 AD OF OOOF7 PUSHAB NAM DSC : F 
2F DD OOOFA PUSHL #4 : : 
FF2C CD 9F OOOFC PUSHAB INQUIRE : : 
7E 6C 9A 00100 MOVZBL (AP), -(SP) F ; 
04 AC 9F 00103 PUSHAB KE YW : | ; 
000000006 00 08 FB 00106 CALLS #8, FORSSOPECLO_ARG ; : 
84 AD DS 0010D TSTL INQUIRE +88 > 0432, ; 
10 13 00110 BEQL : | : 
07 90 AD £9 00112 BLBC INQUIRE+100, 1$ > 0434, : 
OODE (CE 20 90 00116 MOVB #32, VAR_LENGTHS+22 : 0436. ; 
05 11 00118 BRB 2 ; 3 
OODE CE 10 90 0014D 1$ MOVB #16, VAR_LENGTHS+22 > 0438 | F 
86 FE7C CD 9E 001 ; 2$ MOVAB FAB.BLOCR, FAB + 0444 | ; 
54 FECC CD H 901 MOVAB NAM pekock NAM > 044 : 
FF64 CD D5 0012C TSTL £+56 > 045 ; 
08 if 00130 BNEQ : : 
94 A D bat ae TSTL eget ; 5 
03 12 001 BNEQ : | ; 
016F 31 0137 BRW 24$ ; | : 
57 a 013A 3$: BISB2 #34, INQ FLAGS > 0465 | ; 
94 AD D5 00130 TSTL 1NaUI RE+T04 + 0467. : 
19 13 00140 BEQL $ ; | : 
50 94 AD DO O0142 MOVL INQUIRE +104 DNAME ; 0472 : 
OOFF BF 60 B81 0014 CMPW 386s (DNAME), #255 : 047 : 
0B 1A 00148 BGTRU ; : 
35 Ab 60 90 0 14D MOVB  (DNAME), 53(FAB > 0476 | ; 
30 Ab 04 AQ 00 00151 MOVL ees. 4B(F > 0477 ; 


B Sran vain fest 


et lis 
FORRTL.SRCJFORINQUIR.B 


H 3 
1erSepmt9Be 12:82:60 


FORTRAN INQUIRE 


Fons INQUIRE 
1-01 


MoM DO wMmMo ONT - we MTom MO OO WW ONOMOD—MSrDOO Ow oww 
~O00o OOD AODAOCO - —~w NOMIM MM Mawrnw MW AMMOOOCDDODOOD CO one 
vw vwar was OOM ww WnMmmnm Ww wn DW OMMMMMMMNNN oowo 
ooo 3o0O OoOCo°cooO o oo ooooo oO ocooo oOo BOOCOCOCOCOOCOCOOOO oO ooc 
Perera te Fe Fe Fe Fe FS FS FS FS FS FS FS FS HSS FS HS HS HS HT FSH SHS HS HS HSHS HS FS FS HS HS HS HS HS SS HS FSCS FSFE HS SESS SS SES SCS FESR CS SCR SE He 
z a 
=z w =-— 
w <= 
| i z<x 
‘a ~z 
a ad A a «<A fa wTT~ 
w ~ N N N ~w =< wo ~ Le) 
= -~@ ee ~» o - w e- - . 
9 moa oOo A = ‘a ws & 
z <u . oo xr = be ba ” e<e& os. bd Toy a 
wn “em iu~ WwW w wv v¥v <= 0M w ”n w wo mo an ww we 
oo wowew OO OY OO : & £& &o o ow 8&8 2 “ae Ot MO moo 2 
<= Mm wr dat ae&e =—- =~ Xt ~~ Ce <x <= < w own <4 we a«t | . 
—~o of Ww wu & Re ow ™m a Po | 4 an ao au aw ea <zu aa ww 
om wv _ a <= ww ive uOu oO wo | woe o aw <x DZD 
we + . “_ ‘to __ *- . ‘¢ t —= | # AG t . 6 A | wwor- 
ow we naw oOaownn ~~ WW” eA GOA GC oud “A OAS GBs aOon-ne l= J |‘ << 
2Qaq aw wk 22 >-4@E §}-§ £ 222 252 2-2 > + 2 £2O0OEZ-— §-§2 Seu 
—— = <i e wot OO YM <f He a —~— Ye Ww —= <-aeacae n= COOunwn 
> oe_e 2 2 2 2 . <= 2&2 wuz tees 
So o2 Zu - ao + ~ “OM ww = wR ZA + + DM * DH OM sZH~ i ata + MunnZze 
ANZA Zu Bu ~ RU L—ON BOF ORK ON RK RK UY NORM a OO Ce RK FO NR Tw fe ee NW ow 
NR Ph ~ Ow~ ST P_ RRL BRONCO Bu Bee BB BM - BBVBVc_wVtu Bee BQMr— BKnvre- Tuc Baewvce if 
— ad 
N —_ ~N mee) own ~N Nm wm WY MN wD @ a 2 
O4484g3eceOoo ODO FsVv490 FH QO WD Ot1OOIODM FTsvr™wD Ano~ DWDOIITYI oun 
Ovrr-O 0 > POOH UO WOM UD SP OV+ GBF GBVVHOW JOH IMO SPwrveceeceuninv3>>acoea 
SZ -MWOFVO0OE$ODet JH ZODdI TOC OVW Vw ODF UD eH EO ZOO UI OT OOU 
OO-—OFCMOFTOOOA COOOOOAVOFOOO+-OO>-OMWOMAVMOA TC DOOMTEOMDEOVCVCVvacWMMEZ DW 
* + hd A oh coos AP cos “eA 
AMA Ff Ff RO - N mr wn of 
ww or ao Oe - _- -—— _ -- 


300 Oe — ODO OO De — OO OMY OWN EO P00 DOWOMP- © OSFP-COMMNDO VOW OO VE WUT Ou WOU um 
WANN ODOOOP-P- PPP DODOSOOO SEI OOODOOVCVVV CO OWWWwWWWewuueOOOCSeK eK — 
SLL EIN 
COOCCGOCOCOCOOSOOSOOCOCSOOSOCCOOOSCOCOOSCSOCOSCOCOOCOOOCOCOOOOOCOOOOOOOOOOOSoOoOoOO 
OQOoCOSSAEOOCOCOGOOOCCOCOOSOSSOSSSSSOSSSSSSOSSOSOSOCOSSOOCOOSSOSOOSOOOOOOoOSoSO 


—<ymo- £O0— 2 -— OOM = OD Om LK MNMBDANMDO- ODS OMO-e a aeWee— TOT TO@DOr WOww 
—DO—- OO CO ODWOu WOK WOK K—PK—ODWOK DO — DOWOUe WOU De DOC - Ow OOO WMOOC Ow 


MVNO ZL OODOOMN = O-— OF OVO LIM TMNT MO MO OD - OMOT TT ODOT TOR OWwMmwe 
OOV— YGWOOVUO LOOOM OW F< - OMS LOCO LOO LOOCCOMoMmo- OO coatcodcaeae eiieete dambieents 


o 
ww w wv @ @ ~ m" © weoe o w 
oo oO Oo ~ o o Oo o Oo MNUNCO uu © 
—~ o 
—_— o 
~ ow OO FRR Oeu YO CO WT PRR ~~ ~or Ow OoDKr~ eH Wr o~ we ™M 
w weodacimmowododkti nw w wan oo om wm ww ow << © 
o oOo o o o 
u wr oowonro ™ ~ Oo So oe wre 
uo meow om +~ Oo Oo o So So So oo 
Oo o oOo o So o So 
oO o So Oo So So So 
o oOo Oo So So So 
oe o Oo Oo [=] 
oe © Oo So o So 
o Oo Oo Oo Oo o 
wv @ oO a w ~*~ 
w Oo - _ - Oo 


FONSI MOUERE 
1-01 


FORTRAN INQUIRE 


000000006 


000000006 


000000006 


55 20 F8 


0000Vv 


000000006 


000000006 


oo 
we 


00000077 


0000v 


EC 


08 
04 


FC 
F7 


OOF8 


EC 


04 


C 
4 


FF30 


EC 
FC 


. 000000006 


So 
o 
woo 


A ODA O- — OWO- TN -AMowWs OW -Mo—Momrommro 


>> st 
WO MWS OO 0O- TWOLMIOMoecn>y 


OOCSSOP FVM owwOonwow? 


1b-sdp-19 4 


AX=1 


12:82:62 


1 
FORRTL.SRC 


14-Sep-1984 

31 BRW 23$ 
DD 18$: USHL SP 
oF PUSHAB LUN. FLAG 

FB O020A CALLS #2, FORSSNEXT_LUN 
d5 00231 TSTL UNFLAG 

13 00234 BEQL 
d4 00 6 CLRL = = (SP) 

FB 0 CALLS #1, SYSSSETAST 
DO 0023F MOVL RO, AST_STATUS 
DD 00242 PUSHL UNIT 

FB 00244 CALLS #1, FORSSCB_FETCH 
D : 4B TSTL ce 

1 4D BEQL $ 

£9 O24F BLBC -4(CCB), 208 

A 00253 MOVZBL -9(CCB). RO 

20 00257 CMPCS RO, a= 

0250 RES OR_EXP_NAME 

12 0260 BNEQ 20$ 
88 00 62 BISB2 #1, INQ_FLAGS 
DD 0026 PUSHL 

FB 00267 CALLS #1, PUSH_CCB 
DO 0026C MOV. RO, STATOS 
D1 0026F CMPL  AST_STATUS, #9 
12 00272 BNEQ 19$ 
DD 00274 PUSHL #1 

FB 00276 CALLS #1, SYSSSETAST 
E9 0027D 19$:  BLBC STATUS, 27 
D4 00280 CLRL_ L_UNWIND_ACTION 
88 00283 BISB2 #12, INQ~FLAGS 
11 00286 BRB 27$ 
D1 00288 20$: CMPL = AST_STATUS, #9 
12 00288 BNEG 218 
0D 0028D PUSHL #1 
FB 0028F CALLS #1, SYSS$SETAST 
D5 00296 21$:  TSTL LUN_FLAG 

12 00299 BNEQ  =«-'18$ 

11 00298 BRB 27$ 
DO 0029p 22$:  MOVL  44(FAB), 4(NAM) 
90 00 Ag MOVB 52 (FAB) 3 (NAM) 
11 002A 3$: BRB 27$ 
D0 00 AS 24$:  MOVL  INQUIRE+4, UNIT 
DO OO2AE MOVL -~UNIT, RO 

19 00281 BLSS 27$ 
D1 00 B3 CMPL RO #119 

14 OO2BA BGTR 27$ 
88 99 BC BISB2 #1, INQ_FLAGS 
DD 002BF PUSHL RO 

FB 02C1 CALLS #1, PUSH CCB 

D C6 MOVL RO, STATOS 

E9 002C BLBC STATUS, 26 

D4 002CC CLRL — L_LUNWIND_ACTION 
9 O2CF BLBC -&(CCB),~25$ 

8 6 D3 BISB2 #14, INQ_FLAGS 
11 00206 BRB 27$ 

16 00208 25$: JSB FORSS$CB_POP 

D0 6 DE MOVL #1, L_UNWIND_ACTION 
11 E BRB 27$ 
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| 
0619 
0632. 


0633. 
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FORSINQUIRE FORTRAN INQUIRE 16-Sep-1984 00:27: AX-11 Bliss-32 V4.0-74 Page 27. 
eit a aets 1 99:95:65 FORRTL.SRCJFORINQUIR.B32;1 . Bs 
A 9 dO E4 26$: MOVL STATUS, RET_STATUS 3 0738. H 
09 7 33 1 E7 555: BC #2, 1NO_FLAGS, 28$ 3 0747) : 
4 44 AB SE OOCEB MOVAB ¢ (R11)> FAB + 0750) : 
4 0094 CB EF MOVAB 148(R115, NAM + 0751) ; 
A AD 0 4 288: STL NQUIRE +420 ; 0763. : 
07 57 a3 E § F9 BBS #3, INQ_FLAGS, 29$ : 0765. : 
OA 57 9 EQ 002FD BBS #5. INQ FLAGS 0$ : | ; 
07 7 €9 00301 BLBC  —‘ING_FLAGS, 30$ > 0766) ; 
0080 ‘E 4) Cr 0304 29$:  MNEGL #1, RESP_VEC+120 + 0768 : 
4 11 00309 BRB.ts«8S : | : 
0080 CE D4 : OB 308: CLRL RESP_VEC+120 + 0770) ; 
AB AD D5 F 31$:  TSTL JNQUTRE #124 : 0776) 3 
16 #1 0312 BEQL 4$ : 3 
07 57 0@ E0 00314 BBS We. INQ_FLAGS, 328 + 0778 | ; 
OA 57 05 €1 00318 BAC 51 INQAELAGS 335 + 0779 : 
07 57 €9 0031C BLBC  =INQ_FLAGS, 33$ : ; 
0084 CE 01 CE OO31F 328:  MNEGL #1, RESP_VEC+124 + 0781 : 
04 11 00524 BRB 34$ ; | ; 
0084 CE 04 00326 33$: CLRL  RESP_VEC+124 + 0783) : 
AC AD D3 0032A 34$: TSTL NOUTRE+128 : 0791 | ; 
OE 13 00320 BEQL 6$ 5 ; 
07 57 £9 003¢F BLBC —INQ FLAGS, 35$ + 0793 ; 
0088 CE 6E DO 00332 MOVL NIT, RESP_VEC+128 + 0795 : 
04 11 00337 BRB : : 
0088 CE D4 00339 35$:  CLRL  RESP_VEC+128 + 0797 ; 
BO AD D5 00330 36$: =TSTL JNQUTRE+15¢ ; 0804, ; 
1¢ 13 00340 BEQL 9$ : | ; 
07 57 01 €1 00342 BBC #1, INQ_FLAGS, 37$ + 0807 | ; 
oo8c = 01 CE 00346 MNEGL #1, RESP_VEC+132 : 0809 ; 
04 11 00348 BRB 38 : ; 
008C CE 04 0034D 37$:  CLRL RESP VEC+132 > 0811 ; 
09 57 02 £1 00351 38$:  B8C #2, INQ FLAGS, 39$ > 0812 ; 
04 FC AB 05 £1 00355 BBC #5. -4(CCB), $98 : : 
008C CE D4 0035A CLRL RESP_VEC+132 > 0814 ; 
B4 AD D5 0035E 39$: TSTL INQUIRE +136 3 0822 3 
10 13 00361 BEQL : ; 
50 B4 AD 00 00363 MOVL INQUIRE+136, NAME _DSC > 0827 ; 
51 03 A4 9A 00367 MOVZBL 3(NAM), R > 0828 ; 
60 20 04 B4 7 31 2c 00368 OVCS R1, a4(NAM), #32, (NAME_DSC), @4(NAME_DSC) ; 0829 ; 
B8 AD 05 00375 40$: TSTL  INQUIRE+140 > 0837 ; 
2D 13 00376 BEQL 44 : : 
0094 ce 03 06 00378 MOVL #3, RESP_VEC+140 + 0840 ; 
1F 02 € 7D BBC #2; INQ_FLAGS, 43$ : 0841 ; 
07 FC AB 04 E1 00 81 BBC a4; -4(CCB), 41$ + 0843 ; 
0094 CE 4 DO 00 MOVL #4. RESP_VEC+140 + 0845 ; 
18 11 00 88 BRB a4$ ; ; 
FD A: 95 00380 41$:  TSTB -3(CCB) + 0846 F 
0 18 0390 BGEQ 428 ; ; 
0094 CE 05 00 00 3% MOVL #5, RESP_VEC+140 > 0848 : 
0C 11 0039 BRB 44$ ; : 
0094 CE 06 00 00399 428:  MOVL #6, RESP_VEC+140 > 0850 ; 
: 11 0039 BRB 44$ ; O84 3 ; 
0094 CE D 0 AO 43$:  MOVL #3, RESP_VEC+140 > 085 : 
BC AD D AS 44$: TSTL INQUIRE +T44 > 0861 ; 
10 13 0038 BEQL 46$ : : 


kK 3 
FORSINQUIRE FORTRAN INQUIRE 16-Sep-1984 00:27: AX-11 Bliss-32 V4.0-74 Page 28 FC 
eet 19-808- 1382 90:95:85 PORRTL SRETFORINGUGR 68251 . tse 2 
07 57 3 €1 AA BBC #3, INQ_FLAGS, 45$ : 3) : 
0098 CE ; 06 5 MOVL an RESP_VEC+144 : red : 
0098 CE 3 D B5 45$: MOVL +8 RESP vEC+144 : 0867. ; 
CO AD b BA 46$: Ist JNQUIRE+T4 + 0874 ; 
009¢ cE 63 D0 0038F MOVL a3, RESP_VEC+148 : sare ; 
24 fl 0 (% BBC #3, INQ_FLAGS, 51$ : 0878 ‘ 
50 1D ab A 00368 MOVZBL 29(FAB)> RO + 0881 ; 
0 I 03CC BNEQ 47$ + 0884 ; 
01 1F 6A6 91-00 ce CMPB 3(FAB) . # + 0885 ; 
1 le 6 D BNEQ 0$ : ; 
Q 1 D4 BRB 48$ + 0887 ; 
10 0 91 003D6 47$: CMPB se RO, #16 + 0890 ; 
07 13 0309 BNEQ 49§ : : 
009c =sCE 01 00 00 DB 48$:  MOVL #1, RESP_VEC+148 > 0891 ; 
OA ¥1 OO3E BRB 51§ : ; 
20 0 91 00 Ee 49$: CMPB sO, -#32 ; 0892 | ; 
05 12 OO3E BNEQ 51$ : ; 
009c «CEE 02 DO OO3E7 50$: MOVL #2, RESP_VEC+148 > 0893 : 
E4 AD D3 OO3EC 51$: TSTL INQUIRE +84 + 0904 ; 
27 13 OO3EF BEQL 4$ : ; 
00cO. «oC 03 DO 003F1 MOVL #3, RESP_VEC+184 + 0907 F 
1€ 57 03 £1 003F6 BBC #3, INQ_FLAGS, 54$ + 0908 ; 
50 1D Ad 9A OO3FA MOVZBL 29(FAB), RO + 0911 ; 
20 50 91 OO3FE CMPB R0 + 0914 ; 
07 12 00401 BNEQ 52$ : ; 
00coO. «CE 1 DO 00403 MOVL #1, RESP_VEC+184 + 0915 ; 
; 11 00408 _ BRB 54§ : | ; 
5 b3 0040A 52$: TSTL RO : 0916 ; 
05 13 0040Cc BEQL 53$ ; ; 
10 50 91 0040€ CMPB Ss aRO, #16 : ; 
05 12 00411 BNEQ 54 : : 
00co. oC 02 DO 00413 53$:  MOVL #2, RESP_VEC+184 + 0917 ; 
C4 AD D3 00418 54$: TSTL NQUIRE+T52 : 0930 F 
1E 13 00418 BEQL ; : 
00A0 ce 03 pd 00410 MOVL #3, RESP_VEC+152 : 0933 ; 
15 5 02 €1 00422 BBC " INQ_FLAGS, 56$ + 0934 ; 
67 FD AB €9 00426 BLBC -3(CCB)> 55$ : 0936 F 
QOAO CE 07 DO 0042A MOVL #7, RESP_VEC+152 : 0938 ; 
OA 11 0042F BRB 56$ ; ; 
05 FD AB 01 €1 00431 55$: BBC Wi, -3(CCB), 56$ : 0939 ; 
QOAO CE 08 DO 00436 MOVL #8. RESP_VEC+152 > 0941 : 
C8 AD D 004 B 56$: TSTL INQUIRE+T56 : 0951 : 
19 13 0043 BEQL 3 : : 
07 57 03 £1 00440 BBC #3, INQ FLAGS, 57$ : 0953 ; 
00A4 «CCE o4 DO 00444 MOVL #1, RESP_VEC+156 : 095 ; 
3 11 00449 BRB ; ; 
OOAS CE 03 DO 00448 57$: MOVL #3, RESP VEC+156 : 0957 : 
cc AD bd O45 58$: TSTL INQUIRE+T6 : 0966 : 
19 13 004 BEQL 60$ : : 
07 57 E1 0045 BBC #3, INQ FLAGS, 59$ : 0968 ; 
QOAB CE 1 BO 00499 movL i RESP_VEC+160 : ite : 
OOAB CE 3 D B46) 59$: MOVL #3, RESP yEC#160 : 0972 | : 
pc 6AD OCOD 465 60$: TSTL INQUIRE+T76 ; 0980 | : 
a 04 BEQL 63$ 3 3 
| 


3 j 
FORSINQUIRE FORTRAN INQUIRE 1b-se -1984 00:27: AX-11 Bliss-32 V4.0-74 Page 29. F 
eit 127808- 1382 90:95:85 FORRTL. SRCJFORINQUIR.B32;1 . rit 2 
0088 D 46A MOVL #3, RESP_VEC+176 3 0983) ; 
23 s 8 et Geet BBC ; INQ_FLAGS, 63$ + 0984 | : 
0 1D ag A 004 ; MOVZBL 29(FAB); RO + 0986 | ; 
0 12 0047 BNEQ + 0989 | ; 
00B8 CE 06 ; 49 MOVL ’ RESP_VEC+176 + 099 | ; 
10 8 iH 4 " 618: CHPB os #16 ; 0991 | ; 
Py | ’ 
0088 CE } of , 5 HOVL 4 RESP_VEC+176 > 0992 | ; 
3 : 
20 : 91 0048C 62$:  CMPB RO #32 + 0993 ; 
0 1 04 F BNEQ 63$ : ; 
00B8 CE A 00 00491 MOVL #10, RESP_VEC+176 + 0994 ; 
DO AD 05 004696 63%:  TSTL  INQUIRE+184 : 1011 ; 
42 1 0499 BEQL 7$ : : 
OOAC cE D4 00498 CLRL RESP VEC +164 + 1014 ; 
21 57 E1 0049F BBC #2, INQ FLAGS, 65$ : 1015 : 
b2 OA 8 04A3 TSTW  =46(CCBY : 1018 | ; 
35 13 004A6 BEQL : ; 
QOAC CE D2 AB 3C O04A8 MOVZWL =46(CCB), RESP_VEC+164 : 1021 ; 
05 FD AB 03 €1 O4AE C #3, -3(CCB), 6% + 1022 ; 
OOAC CE 02 C2 0048 SUBL2 #2, RESP VEC+164 + 1024 ; 
20 FD AB 1 €1 004BB 64$: — BBC #1. -3(CTB), 67 + 1025 : 
OOAC CE 4 ¢6 0048D DIVL2 #4. RESP_VEC+164 : 1027 : 
19 11 004C2 BRB 67 + 1015 : 
15 57 04 f 004C4 65$: BBC #4, INQ_FLAGS, 67$ + 1030 ; 
50 3% AG O38 004¢8 MOVZWL 54(FAB)> R + 1033 ; 
50 FE5A CD B1 004CC CMPW  XAB_BLOCK+10, RO F ; 
05 18 00401 BLEQU : : 
50 FESA CD 3C 00403 MOVZ2WL XAB_BLOCK+10, RO : ; 
OoAC CE 50 DO 004D8 66$:  MOVL RO, RESP VEC+164 + 1032 : 
D4 AD D3 00400 67$: TSTL  INQUIRE+T68 + 1047 ; 
13 13 004E0 BEQL 6 : ; 
00B0 CE D4 004E2 CLRL RESP VEC+168 + 1044 : 
0B 57 02 €1 00466 BBC #2, INQ FLAGS, 68$ + 1045 F 
06 FC AB 04 £1 OO4EA BBC #4. -4(CCB), 68$ : ; 
0080 CE EO AB DO OOsEF MOVL  =32(CCB), RESP_VEC+168 + 1047 ; 
D8 AD D5 OO4F5 68$:  TSTL NQUIRE+172 > 1056 ; 
IE 13 004F8 BEQL 0$ : : 
00B4 ce 03 D0 OO4FA MOVL #3, RESP_VEC+172 + 1059 | ; 
15 5 02 €1 OO4FF BBC We INQ_FLAGS, 70$ + 1060 | : 
11 FD AB E9 00503 BLBC -3(CCB)> 70$ : ; 
07 FF AB 06 €1 00507 BBC #6, -1(€CB), 69$ > 1063 : 
0084 CE 08 D0 9950¢ MOVL #11, RESP_vECc+172 > 1065 | ; 
11 00511 BRB 7 : | : 
00B4 CE 0C D 0513 69$: MOVL #12, RESP_VEC+172 + 1067 : 
EO AD 05 00518 70$:  ==TSTL NOUIRE+180 : 1077 : 
cose ¢ 38 bd doste SVE #8) RESP_VEC#180 : 1080 : 
43 5 83 Fl 0522 BBC #3. INQ FLAGS, 75$ + 1081 ; 
50 1F Ab A 09 6 MOVZBL 31(FAB)7 RO > 1083 : 
01 50 91 005A CMPB RO, #1 > 1086 : 
7 09 D BNEQ 71 : ; 
ooBc CE D : F MOVL’ #13, RESP_VEC+180 ; 1087 | ; 
11 00534 BRB 75$ : ; 
02 91 09 6 71$:  CMPB RO #2 > 1088 ; 
Oc 1F 00539 BLSSU 72$ ; : 
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FORSINQUIRE FORTRAN INQUIRE 16- AX-11 Bliss-32 V4.0-74 Page 31. 
1-01 14- ats hi w $5; 3 FORRTL.SRCJFORINQUIR.B32;1 ° (6) | 
0000 0060F oe WORD sexs," nothing 3 0347) 
50 9 AC 00 00611 MOVL RO : 
50 4 Aad D 0613 MOVL 4(RO), RO ; 

FF2C CO 9F 0061 PUSHAB INQUIRE ; 

EC ag 9F 00610 PUSHAB L UNWIND ACTION : 
02 DD 006 9 PUSHL #2 ; | 

5E 0D 006 PUSHL SP : 

7E 04 AC 7D 00624 MOVQ 4(AP), =(SP) : 

000000006 00 03 FB b06¢8 CALLS #3, FORSSERR_OPECLO ; 

04 0062F RET : 


; Routine Size: 1584 bytes, Routine Base: _FORSCODE + 0130 
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LORS] MeUERE FORTRAN INQUIRE 16-Sep-1984 90:92:68 AX-11 re: eh es 231 Page aid 


14-Sep-19 FORRTL.SRC 
ROUTINE PUSH_CCB ( ! Call FORSSCB_PUSH and return with value 
UNITY : CALL_CCB = 
Vag 
ABSTRACT: 


Call FORS$CB_PUSH and return with a condition value as the function 
! result. FORSS$CB_PUSH is not called directly as it may signal when 
we do not desire it. 

: FORMAL PARAMETERS: | 
! UNIT = The unit to be pushed 

! FUNCTION RESULT: 

i 

i 

ie 


Either SS$_NORMAL or the condition code of an error which was 
signalled By FORS$CB_PUSH. 
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4 o 
4 
4 BEGIN | 
4 EXTERNAL REGISTER 
‘ CCB: REF $FORSCCB_DECL; 
5 ENABLE 
3 : LIB$S1G_TO_RET; ! Convert signals to return values 
3 FORSS$CB_PUSH (.UNIT, LUB$K_ILUN_MIN); ! Push the CCB 
: : RETURN 1; ' Success 
5 1 END; 
0004 00000 PUSH_CCB: 
» WORD Save R2 : 1184) 
6D 0012 CF DE 00002 MOVAL 1$, (FP) > 1204, 
50 08 CE 00007 MNEGL #8. RO > 1212. 
52 04 AC DO OOO0A MOVL UNIT, R2 ; 
000000006 00 if: 9000E JSB FORS$CB_PUSH ; 
0 01 DO 00014 MOVL #1, RO : 1214 
04 00017 RET > 1216. 
0000 00018 1$ «WORD Save nothing 3; 1204. 
7E D4 OO01A CLRL 3s = (SP F 
5E BD 001C PUSHL SP : 
7E 04 AC 72D OO01E MOVO. 4(AP), =(SP) F 
000000006 00 03 FB 9002 CALLS #3, LIB$SIG_TO_RET ; 
04 00029 RET ; 


; Routine Size: 42 bytes, Routine Base: _FORSCODE + 0760 


Size: 1626 code + 304 data bytes 
: 00:38.2 


Elapsed Time: Ol ive g 
Lines/CPU Min: 
Lexemes/CPU-Min: 29016 
Memory Used: 500 pages 
Compication Complete 
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FORTRAN INQUIRE 16- -Sep-1984 00:27: AX-11 Bliss-32 V4.0-74 Page 33 

14- Sep-19 4 19:95:63 FORRTL.SR RCIF ORINGUIR.BS2; 1 . B) 
1217 1 : 
1 \8 1 END !End of module . 
1219 0 ELUDOM : 
PSECT SUMMARY 
: Name Bytes Attributes : 
;  FORSCODE 1930 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
3 Library Statistics ; 
a tt ee ee eo Be Symbols -------- Pages Processing : 
g File Total Loaded Percent Mapped Time : 
; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 96 0 581 00:01. ‘ 
3 ~$255$DUA28: CFORRTL.OBJJFORLIB.L32;1 711 212 29 52 00:00.6 ; 
; ~$255$DUA28: CFORRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 : 
; BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /MOTRACE/LIS@L 15S +FORINQUIR/08.J208/$:F ORINOUIR MSRC$:FORINQUIR/UPDATE=(ENH$:FORINQUIR 3 
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